Top 10k strings from Tanker (1983)(U.T.S.)(16k).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   1 v(i)=c(i)-13
   1 v$="A23456789TJQK"
   1 s$="HCDS":
   1 l1,c1;v$(vn);" ";
   1 in=((v(cd3)
   1 c(i)=c(r):
   1 betin=(a$="y")
   1 ENTER to stop";
   1 END OF PROGRAM
   1 ;"You stopped with `";m
   1 ;"You have broken the bank in ";cd3-2
   1 ;"You are wrong"
   1 ;"Will the value of CARD ";cd3;" be bet-  ween CARD ";cd3-2
   1 ;"That's it!  No money left!":
   1 ;"TANKER";
   1 ;"Press a key & i will LOAD the   next item on the tape.":
   1 ;"No more cards - you have `";m:
   1 ;"MONEY HELD: `";m
   1 ;"I am turning over card ";cd3:
   1 ;"HANG ABOUT"
   1 ;"GAME or QUIT"
   1 ;"CORRECT!  You win `";2
   1 ;"BET  `";b;" ON  ";
   1 ;" and CARD ";cd3-1
   1 ;"   turns":
   1 )=a*(a>b)+b*(a
   1 (in=betin)
   1 ("You don't have `";b;" - reenter `");b:
   1 "over one at at time. You must"
   1 "have broken the bank."
   1 "have a value between the two"
   1 "guess. If you win `500, you"
   1 "guess if the next card will"
   1 "before it. You bet on each"
   1 "` notes only.  How much?  `";b:
   1 "Twenty cards will be turned"
   1 "TANKER mk3"
   1 "TANKER by U.T.S."
   1 "Press ENTER for another bet or 0
   1 "Inbetween? (y/n)";
   1 "INSTRUCTIONS:"
   1 "How much will you bet?  `";b
   1 "ENTER G or Q"